YES 1.821
↳ HASKELL
↳ LR
((fmToList_GE :: FiniteMap Char a -> Char -> [(Char,a)]) :: FiniteMap Char a -> Char -> [(Char,a)]) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||
data FiniteMap a b = EmptyFM | Branch a b Int (FiniteMap a b) (FiniteMap a b) |
|||||||||||||||||||
instance (Eq a, Eq b) => Eq (FiniteMap b a) where |
|||||||||||||||||||
fmToList_GE :: Ord a => FiniteMap a b -> a -> [(a,b)]
|
|||||||||||||||||||
foldFM_GE :: Ord c => (c -> a -> b -> b) -> b -> c -> FiniteMap c a -> b
|
import qualified FiniteMap import qualified Prelude |
\keyeltrest→(key,elt) : rest
fmToList_GE0 key elt rest = (key,elt) : rest
↳ HASKELL
↳ LR
↳ HASKELL
↳ BR
((fmToList_GE :: FiniteMap Char a -> Char -> [(Char,a)]) :: FiniteMap Char a -> Char -> [(Char,a)]) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||
data FiniteMap a b = EmptyFM | Branch a b Int (FiniteMap a b) (FiniteMap a b) |
|||||||||||||||||||
instance (Eq a, Eq b) => Eq (FiniteMap b a) where |
|||||||||||||||||||
fmToList_GE :: Ord b => FiniteMap b a -> b -> [(b,a)]
|
|||||||||||||||||||
|
|||||||||||||||||||
foldFM_GE :: Ord a => (a -> c -> b -> b) -> b -> a -> FiniteMap a c -> b
|
import qualified FiniteMap import qualified Prelude |
↳ HASKELL
↳ LR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((fmToList_GE :: FiniteMap Char a -> Char -> [(Char,a)]) :: FiniteMap Char a -> Char -> [(Char,a)]) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||
data FiniteMap b a = EmptyFM | Branch b a Int (FiniteMap b a) (FiniteMap b a) |
|||||||||||||||||||
instance (Eq a, Eq b) => Eq (FiniteMap b a) where |
|||||||||||||||||||
fmToList_GE :: Ord a => FiniteMap a b -> a -> [(a,b)]
|
|||||||||||||||||||
|
|||||||||||||||||||
foldFM_GE :: Ord a => (a -> b -> c -> c) -> c -> a -> FiniteMap a b -> c
|
import qualified FiniteMap import qualified Prelude |
foldFM_GE k z fr EmptyFM = z foldFM_GE k z fr (Branch key elt vw fm_l fm_r)
| key >= fr
= foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l | otherwise
= foldFM_GE k z fr fm_r
foldFM_GE k z fr EmptyFM = foldFM_GE3 k z fr EmptyFM foldFM_GE k z fr (Branch key elt vw fm_l fm_r) = foldFM_GE2 k z fr (Branch key elt vw fm_l fm_r)
foldFM_GE0 k z fr key elt vw fm_l fm_r True = foldFM_GE k z fr fm_r
foldFM_GE1 k z fr key elt vw fm_l fm_r True = foldFM_GE k (k key elt (foldFM_GE k z fr fm_r)) fr fm_l foldFM_GE1 k z fr key elt vw fm_l fm_r False = foldFM_GE0 k z fr key elt vw fm_l fm_r otherwise
foldFM_GE2 k z fr (Branch key elt vw fm_l fm_r) = foldFM_GE1 k z fr key elt vw fm_l fm_r (key >= fr)
foldFM_GE3 k z fr EmptyFM = z foldFM_GE3 wv ww wx wy = foldFM_GE2 wv ww wx wy
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ LR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
(fmToList_GE :: FiniteMap Char a -> Char -> [(Char,a)]) |
import qualified Maybe import qualified Prelude |
|||||||||
data FiniteMap b a = EmptyFM | Branch b a Int (FiniteMap b a) (FiniteMap b a) |
|||||||||
instance (Eq a, Eq b) => Eq (FiniteMap a b) where |
|||||||||
fmToList_GE :: Ord b => FiniteMap b a -> b -> [(b,a)]
|
|||||||||
|
|||||||||
foldFM_GE :: Ord b => (b -> c -> a -> a) -> a -> b -> FiniteMap b c -> a
|
|||||||||
|
|||||||||
|
|||||||||
|
|||||||||
|
import qualified FiniteMap import qualified Prelude |
↳ HASKELL
↳ LR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ QDPSizeChangeProof
↳ QDP
↳ QDP
new_foldFM_GE(wz3000, wz31, wz5, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE1(new_fmToList_GE0(wz3000, wz31, wz5, h), wz330, wz331, wz332, wz333, wz334, h)
new_foldFM_GE3(wz9, Branch(wz3340, wz3341, wz3342, wz3343, wz3344), h) → new_foldFM_GE1(wz9, wz3340, wz3341, wz3342, wz3343, wz3344, h)
new_foldFM_GE1(wz9, Char(Zero), wz331, wz332, wz333, wz334, h) → new_foldFM_GE2(wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE1(wz9, Char(Zero), wz331, wz332, wz333, wz334, h) → new_foldFM_GE3(wz9, wz334, h)
new_foldFM_GE1(wz9, Char(Succ(wz33000)), wz331, wz332, wz333, wz334, h) → new_foldFM_GE(wz33000, wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE2(wz31, wz6, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE1(new_fmToList_GE00(wz31, wz6, h), wz330, wz331, wz332, wz333, wz334, h)
new_foldFM_GE1(wz9, Char(Succ(wz33000)), wz331, wz332, wz333, Branch(wz3340, wz3341, wz3342, wz3343, wz3344), h) → new_foldFM_GE1(wz9, wz3340, wz3341, wz3342, wz3343, wz3344, h)
new_foldFM_GE10(wz9, Char(Zero), wz331, wz332, wz333, wz334, h) → new_foldFM_GE5(wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE5(wz31, wz6, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE10(new_fmToList_GE00(wz31, wz6, h), wz330, wz331, wz332, wz333, wz334, h)
new_fmToList_GE00(wz31, wz6, h) → :(@2(Char(Zero), wz31), wz6)
new_fmToList_GE0(wz3000, wz31, wz5, h) → :(@2(Char(Succ(wz3000)), wz31), wz5)
new_foldFM_GE0(wz9, EmptyFM, h) → wz9
new_foldFM_GE10(wz9, Char(Succ(wz33000)), wz331, wz332, wz333, wz334, h) → new_foldFM_GE4(wz33000, wz331, new_foldFM_GE0(wz9, wz334, h), wz333, h)
new_foldFM_GE5(wz31, wz6, EmptyFM, h) → new_fmToList_GE00(wz31, wz6, h)
new_foldFM_GE4(wz3000, wz31, wz5, EmptyFM, h) → new_fmToList_GE0(wz3000, wz31, wz5, h)
new_foldFM_GE4(wz3000, wz31, wz5, Branch(wz330, wz331, wz332, wz333, wz334), h) → new_foldFM_GE10(new_fmToList_GE0(wz3000, wz31, wz5, h), wz330, wz331, wz332, wz333, wz334, h)
new_foldFM_GE0(wz9, Branch(wz3340, wz3341, wz3342, wz3343, wz3344), h) → new_foldFM_GE10(wz9, wz3340, wz3341, wz3342, wz3343, wz3344, h)
new_foldFM_GE0(x0, EmptyFM, x1)
new_foldFM_GE0(x0, Branch(x1, x2, x3, x4, x5), x6)
new_foldFM_GE4(x0, x1, x2, Branch(x3, x4, x5, x6, x7), x8)
new_foldFM_GE10(x0, Char(Zero), x1, x2, x3, x4, x5)
new_fmToList_GE0(x0, x1, x2, x3)
new_foldFM_GE5(x0, x1, EmptyFM, x2)
new_fmToList_GE00(x0, x1, x2)
new_foldFM_GE4(x0, x1, x2, EmptyFM, x3)
new_foldFM_GE10(x0, Char(Succ(x1)), x2, x3, x4, x5, x6)
new_foldFM_GE5(x0, x1, Branch(x2, x3, x4, x5, x6), x7)
From the DPs we obtained the following set of size-change graphs:
↳ HASKELL
↳ LR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ QDP
↳ QDPSizeChangeProof
↳ QDP
new_foldFM_GE12(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h) → new_foldFM_GE6(wz103, wz104, wz109, h)
new_foldFM_GE6(wz61, wz48, Branch(Char(Succ(wz52000)), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE11(wz61, wz48, wz52000, wz521, wz522, wz523, wz524, wz52000, wz48, ba)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Zero, h) → new_foldFM_GE6(new_fmToList_GE0(wz105, wz106, new_foldFM_GE7(wz103, wz104, wz109, h), h), wz104, wz108, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Succ(wz1110), h) → new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, wz1100, wz1110, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Zero, h) → new_foldFM_GE12(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Zero, h) → new_foldFM_GE6(wz103, wz104, wz109, h)
new_foldFM_GE11(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Succ(wz1110), h) → new_foldFM_GE6(wz103, wz104, wz109, h)
new_foldFM_GE6(wz61, wz48, Branch(Char(Zero), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE6(wz61, wz48, wz524, ba)
new_foldFM_GE12(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h) → new_foldFM_GE6(new_fmToList_GE0(wz105, wz106, new_foldFM_GE7(wz103, wz104, wz109, h), h), wz104, wz108, h)
new_foldFM_GE7(wz61, wz48, EmptyFM, ba) → wz61
new_foldFM_GE7(wz61, wz48, Branch(Char(Succ(wz52000)), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE13(wz61, wz48, wz52000, wz521, wz522, wz523, wz524, wz52000, wz48, ba)
new_foldFM_GE14(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h) → new_foldFM_GE7(new_fmToList_GE0(wz105, wz106, new_foldFM_GE7(wz103, wz104, wz109, h), h), wz104, wz108, h)
new_foldFM_GE7(wz61, wz48, Branch(Char(Zero), wz521, wz522, wz523, wz524), ba) → new_foldFM_GE7(wz61, wz48, wz524, ba)
new_fmToList_GE0(wz3000, wz31, wz5, bb) → :(@2(Char(Succ(wz3000)), wz31), wz5)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Succ(wz1110), h) → new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, wz1100, wz1110, h)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Zero, h) → new_foldFM_GE14(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Zero, Succ(wz1110), h) → new_foldFM_GE7(wz103, wz104, wz109, h)
new_foldFM_GE13(wz103, wz104, wz105, wz106, wz107, wz108, wz109, Succ(wz1100), Zero, h) → new_foldFM_GE14(wz103, wz104, wz105, wz106, wz107, wz108, wz109, h)
new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Succ(x7), Succ(x8), x9)
new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Succ(x7), Zero, x8)
new_foldFM_GE7(x0, x1, Branch(Char(Succ(x2)), x3, x4, x5, x6), x7)
new_fmToList_GE0(x0, x1, x2, x3)
new_foldFM_GE7(x0, x1, EmptyFM, x2)
new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Zero, Succ(x7), x8)
new_foldFM_GE13(x0, x1, x2, x3, x4, x5, x6, Zero, Zero, x7)
new_foldFM_GE7(x0, x1, Branch(Char(Zero), x2, x3, x4, x5), x6)
new_foldFM_GE14(x0, x1, x2, x3, x4, x5, x6, x7)
From the DPs we obtained the following set of size-change graphs:
↳ HASKELL
↳ LR
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ AND
↳ QDP
↳ QDP
↳ QDP
↳ QDPSizeChangeProof
new_foldFM_GE8(Char(Zero), Branch(Char(Zero), wz31, wz32, wz33, wz34), h) → new_foldFM_GE8(Char(Zero), wz34, h)
new_foldFM_GE8(Char(Zero), Branch(Char(Succ(wz3000)), wz31, wz32, wz33, wz34), h) → new_foldFM_GE8(Char(Zero), wz34, h)
From the DPs we obtained the following set of size-change graphs: